home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Cppaint v1.2 d1.adf / InstallPFM < prev    next >
Text File  |  1993-10-21  |  10KB  |  498 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Install Script Copyright (C) Cloanto Italia 1992, 1993
  6. ; Cloanto, Personal Fonts Maker, PFM  (R), (TM) Cloanto Italia
  7. ; All Rights Reserved - Reproduction Prohibited
  8.  
  9. ; We know some of you prefer other installers. But this one is
  10. ; truly multilingual, works with all operating systems and fits
  11. ; on the disk. If you have any suggestions, please let us know.
  12.  
  13. If NOT EXISTS RAM:IPT
  14.   MakeDir RAM:IPT
  15.   EndIf
  16.  
  17. If NOT EXISTS RAM:t
  18.   MakeDir RAM:t
  19.   EndIf
  20.  
  21. If EXISTS C:Copy
  22.   Copy >NIL: C:Copy RAM:IPT
  23.   EndIf
  24.  
  25. CD RAM:IPT
  26.  
  27. If EXISTS C:If
  28.   Copy >NIL: C:If RAM:IPT
  29.   EndIf
  30. If EXISTS C:EndIf
  31.   Copy >NIL: C:EndIf RAM:IPT
  32.   EndIf
  33. If EXISTS C:Execute
  34.   Copy >NIL: C:Execute RAM:IPT
  35.   EndIf
  36. If EXISTS C:Assign
  37.   Copy >NIL: C:Assign RAM:IPT
  38.   EndIf
  39.  
  40. Assign >NIL: PFM:
  41.  
  42. Assign >NIL: PFM: EXISTS
  43. If WARN
  44.    Assign >NIL: " PFM:" EXISTS
  45.    If NOT WARN
  46.       Assign PFM: " PFM:"
  47.       EndIf
  48.    Assign >NIL: "Copy of PFM:" EXISTS
  49.    If NOT WARN
  50.       Assign PFM: "Copy of PFM:"
  51.       EndIf
  52.    Assign >NIL: Copy_of_PFM: EXISTS
  53.    If NOT WARN
  54.       Assign PFM: Copy_of_PFM:
  55.       EndIf
  56.    EndIf
  57.  
  58. Assign >NIL: PFM: EXISTS
  59. If WARN
  60.    Echo "Error: InstallPFM can only be run from *"PFM*" disk."
  61.    Wait 3 SECS
  62.    Skip End2
  63.    EndIf
  64.  
  65. Copy PFM:c/Print RAM:IPT
  66.  
  67. If NOT EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub
  68.   Print "Disk is not configured: default configuration in progress."
  69.   Execute PFM:English
  70.   CD RAM:IPT
  71.   EndIf
  72.  
  73. If EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub
  74.   Execute PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub
  75.   EndIf
  76.  
  77. If NOT EXISTS PLT_trlkll
  78.   Print "Error during install."
  79.   Wait 3 SECS
  80.   Skip End2
  81.   EndIf
  82.  
  83. If EXISTS C:CD
  84.   Copy >NIL: C:CD RAM:IPT
  85.   EndIf
  86. If EXISTS C:Else
  87.   Copy >NIL: C:Else RAM:IPT
  88.   EndIf
  89. If EXISTS C:Lab
  90.   Copy >NIL: C:Lab RAM:IPT
  91.   EndIf
  92. If EXISTS C:Skip
  93.   Copy >NIL: C:Skip RAM:IPT
  94.   EndIf
  95. If EXISTS C:Delete
  96.   Copy >NIL: C:Delete RAM:IPT
  97.   Copy >NIL: C:Delete RAM:t
  98.   EndIf
  99. If EXISTS C:MakeDir
  100.   Copy >NIL: C:MakeDir RAM:IPT
  101.   EndIf
  102. If EXISTS C:Wait
  103.   Copy >NIL: C:Wait RAM:IPT
  104.   EndIf
  105.  
  106. Copy PFM:c/CAsk RAM:IPT
  107. Copy PFM:c/CopyIcon RAM:IPT
  108. Copy PFM:c/ShowPath RAM:IPT
  109. Copy PFM:PFM_Tools/AskAssign RAM:IPT
  110. Copy PFM:PFM_Icons/def_Drawer.info RAM:IPT CLONE QUIET
  111.  
  112. Print PLT_title
  113.  
  114. ; PWrite, C1-Text, PPAINT trademarks of Cloanto Italia
  115. ; DPaintV, DPaintIV, DeluxePaintIII, ADPRO trademarks of respective owners
  116.  
  117. Assign >NIL: PWrite: EXISTS
  118. If NOT WARN
  119.   Assign INTELLASSIGN: PWrite:
  120.   EndIf
  121. Assign >NIL: C1-Text: EXISTS
  122. If NOT WARN
  123.   Assign INTELLASSIGN: C1-Text:
  124.   EndIf
  125. Assign >NIL: PPAINT: EXISTS
  126. If NOT WARN
  127.   Assign INTELLASSIGN: PPAINT:
  128.   EndIf
  129. Assign >NIL: ADPRO: EXISTS
  130. If NOT WARN
  131.   Assign INTELLASSIGN: ADPRO:
  132.   EndIf
  133. Assign >NIL: DeluxePaintIII: EXISTS
  134. If NOT WARN
  135.   Assign INTELLASSIGN: DeluxePaintIII:
  136.   EndIf
  137. Assign >NIL: DPaintIV: EXISTS
  138. If NOT WARN
  139.   Assign INTELLASSIGN: DPaintIV:
  140.   EndIf
  141. Assign >NIL: DPaintV: EXISTS
  142. If NOT WARN
  143.   Assign INTELLASSIGN: DPaintV:
  144.   EndIf
  145.  
  146. Assign >NIL: INTELLASSIGN: EXISTS
  147. If NOT WARN
  148.   CD INTELLASSIGN:
  149.   CD >NIL: /
  150.   Assign INTELLASSIGN:
  151. Else
  152.   Assign >NIL: Work: EXISTS
  153.   If NOT WARN
  154.     CD Work:
  155.   Else
  156.     Assign >NIL: DH1: EXISTS
  157.     If NOT WARN
  158.       CD DH1:
  159.     Else
  160.       CD PFM:
  161.     EndIf
  162.   EndIf
  163. EndIf
  164.  
  165. Execute RAM:IPT/PLC_ipath
  166.  
  167. If NOT WARN
  168.  
  169.  CD RAM:IPT
  170.  
  171.  Lab Questions
  172.  
  173.  Print >PFM_WriteOK ";"
  174.  
  175.  Print PLT_askpf1
  176.  CAsk -y "*e[31m ?"
  177.  If WARN
  178.    Print >MEMO_DEFDIRS ";"
  179.    Print >MEMO_PF1 ";"
  180.  EndIf
  181.  
  182.  Print PLT_askpf2
  183.  CAsk -y "*e[31m ?"
  184.  If WARN
  185.    Print >MEMO_DEFDIRS ";"
  186.    Print >MEMO_PF2 ";"
  187.  EndIf
  188.  
  189.  If EXISTS MEMO_DEFDIRS
  190.    Print PLT_askfn1
  191.    CAsk "*e[31m ?"
  192.    If WARN
  193.      Assign >NIL: FONTS: EXISTS
  194.      If NOT WARN
  195.        Print > MEMO_FF ";1"
  196.      EndIf
  197.    Else
  198.      Print PLT_askfn2
  199.      CAsk "*e[31m ?"
  200.      If WARN
  201.        CD IPFM:
  202.        Execute RAM:IPT/PLC_fpath
  203.        If NOT WARN
  204.          CD RAM:IPT
  205.          Print > MEMO_FF ";2"
  206.        EndIf
  207.        CD RAM:IPT
  208.      EndIf
  209.    EndIf
  210.  EndIf
  211.  
  212.  Print ""
  213.  Print PLT_askok
  214.  CAsk -y "*e[31m ?"
  215.  If NOT WARN
  216.    Print PLT_title
  217.    Print PLT_askrep
  218.    CAsk -y "*e[31m ?"
  219.    If WARN
  220.      If EXISTS MEMO_DEFDIRS
  221.        Delete MEMO_DEFDIRS QUIET
  222.      EndIf
  223.      If EXISTS MEMO_PF1
  224.        Delete MEMO_PF1 QUIET
  225.      EndIf
  226.      If EXISTS MEMO_PF2
  227.        Delete MEMO_PF2 QUIET
  228.      EndIf
  229.       If EXISTS MEMO_FF
  230.        Delete MEMO_FF QUIET
  231.      EndIf
  232.      Print PLT_title
  233.      Skip Questions BACK
  234.    Else
  235.      Skip End1
  236.    EndIf
  237.  EndIf
  238.  
  239.  Print PLT_title
  240.  Print PLT_infbeg
  241.  ShowPath -f IPFM:
  242.  Print "*e[33m"
  243.  
  244.  If Exists MEMO_DEFDIRS
  245.  
  246.    Copy PFM:PFM.man IPFM: CLONE
  247.  
  248.    If NOT EXISTS IPFM:PFM_Tools
  249.      MakeDir IPFM:PFM_Tools
  250.    EndIf
  251.    Copy PFM:PFM_Tools IPFM:PFM_Tools ALL CLONE QUIET
  252.  
  253.    If NOT EXISTS IPFM:PFM_Prefs
  254.      MakeDir IPFM:PFM_Prefs
  255.    EndIf
  256.  
  257.    Copy PFM:PFM_Prefs/II0 IPFM: ALL CLONE QUIET
  258.  
  259.    If Exists MEMO_PF2
  260.      Print PLT_infpf2
  261.  
  262.      If NOT EXISTS IPFM:PFM_Icons
  263.        MakeDir IPFM:PFM_Icons
  264.      EndIf
  265.      Copy PFM:PFM_Icons IPFM:PFM_Icons ALL CLONE QUIET
  266.  
  267.      If NOT EXISTS IPFM:Pictures
  268.        MakeDir IPFM:Pictures
  269.      EndIf
  270.      Copy PFM:Pictures IPFM:Pictures ALL CLONE QUIET
  271.  
  272.      If NOT EXISTS IPFM:Brushes
  273.        MakeDir IPFM:Brushes
  274.      EndIf
  275.      Copy PFM:Brushes IPFM:Brushes ALL CLONE QUIET
  276.  
  277.      If NOT EXISTS IPFM:Colors
  278.        MakeDir IPFM:Colors
  279.      EndIf
  280.      Copy PFM:Colors IPFM:Colors ALL CLONE QUIET
  281.  
  282.      If NOT EXISTS IPFM:Stencils
  283.        MakeDir IPFM:Stencils
  284.      EndIf
  285.      Copy PFM:Stencils IPFM:Stencils ALL CLONE QUIET
  286.  
  287.      If NOT EXISTS IPFM:fonts
  288.        MakeDir > NIL: IPFM:fonts
  289.      EndIf
  290.      Copy PFM:fonts/Personal.font IPFM:fonts CLONE
  291.      Copy PFM:fonts/Personal IPFM:fonts/Personal ALL CLONE QUIET
  292.      Copy >NIL: PFM:fonts/Personal.font FONTS: CLONE
  293.      Copy >NIL: PFM:fonts/Personal FONTS:Personal ALL CLONE QUIET
  294.  
  295.      Copy PFM:PFM_Prefs/UIText.#? IPFM:PFM_Prefs CLONE QUIET
  296.      Copy PFM:PFM_Prefs/Startup_#? IPFM:PFM_Prefs CLONE QUIET
  297.      Copy PFM:PFM_Prefs/UIColors.#? IPFM:PFM_Prefs CLONE QUIET
  298.  
  299.      Copy PFM:PFM_PS IPFM: CLONE QUIET
  300.      Copy PFM:PFM2 IPFM: CLONE QUIET
  301.  
  302.      Copy PFM:PFM_Prefs/II2 IPFM: ALL CLONE QUIET
  303.  
  304.      Print "OK"
  305.  
  306.      If Exists MEMO_FF
  307.        Print PLT_inffnt
  308.        Assign >NIL: IFONTS: EXISTS
  309.        If NOT WARN
  310.          Copy PFM:fonts/Kara#? IFONTS: ALL CLONE QUIET
  311.        Else
  312.          Copy PFM:fonts/Kara#? FONTS: ALL CLONE QUIET
  313.        EndIf
  314.        Print "OK"
  315.      EndIf
  316.  
  317.    EndIf
  318.  
  319.    Copy >NIL: PFM:CloantoAudio DEVS: CLONE
  320.  
  321.    If Exists MEMO_PF1
  322.      Print PLT_infp11
  323.  
  324.      If NOT EXISTS IPFM:PFM_Fonts
  325.        MakeDir IPFM:PFM_Fonts
  326.      EndIf
  327.      Copy PFM:PFM_Fonts IPFM:PFM_Fonts ALL CLONE QUIET
  328.  
  329.      If NOT EXISTS IPFM:PRT_Fonts
  330.        MakeDir IPFM:PRT_Fonts
  331.      EndIf
  332.      Copy PFM:PRT_Fonts IPFM:PRT_Fonts ALL CLONE QUIET
  333.  
  334.      If NOT EXISTS IPFM:PFM_CharSets
  335.        MakeDir IPFM:PFM_CharSets
  336.      EndIf
  337.      Copy PFM:PFM_CharSets IPFM:PFM_CharSets ALL CLONE QUIET
  338.  
  339.      If NOT EXISTS IPFM:PFM_Macros
  340.        MakeDir IPFM:PFM_Macros
  341.      EndIf
  342.      Copy PFM:PFM_Macros IPFM:PFM_Macros ALL CLONE QUIET
  343.  
  344.      If NOT EXISTS IPFM:PDM_Defs
  345.        MakeDir IPFM:PDM_Defs
  346.      EndIf
  347.  
  348.      If NOT EXISTS IPFM:PFM_Brush
  349.        MakeDir IPFM:PFM_Brush
  350.      EndIf
  351.  
  352.      Copy PFM:PFM_Gfx IPFM: CLONE
  353.  
  354.      Copy PFM:PFM_Prefs/StartupF#? IPFM:PFM_Prefs ALL CLONE QUIET
  355.  
  356.      Copy PFM:PFM IPFM: CLONE QUIET
  357.  
  358.      MakeDir RAM:IPT/II1
  359.      Copy PFM:PFM_Prefs/II1 RAM:IPT/II1 ALL CLONE QUIET
  360.      Print "OK"
  361.  
  362.      Print PLT_infp12
  363.  
  364.      If Exists PFM_2:PFM
  365.        Copy PFM_2:PFM IPFM: CLONE
  366.      EndIf
  367.  
  368.      If Exists PFM_2:IPT/Lharc
  369.        Copy PFM_2:IPT/Lharc RAM:IPT
  370.        RAM:IPT/Lharc >NIL: -a -m -n e PFM_2:PFM_2.lzh IPFM:
  371.        Delete >NIL: IPFM:Disk.info
  372.        Print "OK"
  373.  
  374.        Print PLT_infp13
  375.        RAM:IPT/Lharc >NIL: -a -m -n e PFM_2:PFM_3.lzh IPFM:
  376.        Delete >NIL: IPFM:Disk.info
  377.  
  378.        Copy PFM_2:II0 IPFM: ALL CLONE QUIET
  379.      Else
  380.        Copy PFM_2:PDM_Defs IPFM:PDM_Defs ALL CLONE QUIET
  381.        Copy PFM_2:PFM_CharSets IPFM:PFM_CharSets ALL CLONE QUIET
  382.        Copy PFM_2:PFM_Macros IPFM:PFM_Macros ALL CLONE QUIET
  383.        Copy PFM_2:PFM_Prefs IPFM:PFM_Prefs ALL CLONE QUIET
  384.        Print "OK"
  385.  
  386.        Print PLT_infp13
  387.        Copy PFM_3:PFM_Fonts IPFM:PFM_Fonts ALL CLONE QUIET
  388.      EndIf
  389.  
  390.      Copy RAM:IPT/II1 IPFM: ALL CLONE QUIET
  391.      Print "OK"
  392.  
  393.      If Exists MEMO_FF
  394.        Print PLT_inffnt
  395.        Assign >NIL: IFONTS: EXISTS
  396.        If NOT WARN
  397.          If Exists RAM:IPT/Lharc
  398.            RAM:IPT/Lharc >NIL: -a -m -n e PFM_2:PFM_3F.lzh IFONTS:
  399.          Else
  400.            Copy PFM_3:fonts IFONTS: ALL CLONE QUIET
  401.          EndIf
  402.        Else
  403.          If Exists RAM:IPT/Lharc
  404.            RAM:IPT/Lharc >NIL: -a -m -n e PFM_2:PFM_3F.lzh FONTS:
  405.          Else
  406.            Copy PFM_3:fonts FONTS: ALL CLONE QUIET
  407.          EndIf
  408.        EndIf
  409.        Print "OK"
  410.      EndIf
  411.  
  412.    EndIf
  413.  
  414.  EndIf
  415.  
  416.  If Exists MEMO_PF1
  417.    Print > MEMO_FF ";3"
  418.  EndIf
  419.  
  420.  If EXISTS MEMO_FF
  421.    Copy >NIL: PFM_WriteOK FONTS:
  422.    If EXISTS FONTS:PFM_WriteOK
  423.      Delete >NIL: FONTS:PFM_WriteOK
  424.      If EXISTS SYS:System/FixFonts
  425.        Print PLT_inffix
  426.        SYS:System/FixFonts
  427.        Print "OK"
  428.      EndIf
  429.    EndIf
  430.  EndIf
  431.  
  432.  CopyIcon >NIL: def_Drawer IPFM: 1 1 572 182
  433.  
  434.  Wait 1 SECS
  435.  
  436.  Print PLT_title
  437.  Print N "*e[31;1m"
  438.  Print PLT_infend
  439.  Print "*e[0m*N"
  440.  Print PLT_trladd
  441.  Print N "*N*e[33m          Assign PFM: "
  442.  ShowPath IPFM:
  443.  Print "*e[31m"
  444.  Print PLT_trlfl1
  445.  Print PLT_trlfl2
  446.  
  447.  Assign >NIL: S: EXISTS
  448.  If NOT WARN
  449.    Print ""
  450.    Print PLT_askust
  451.    CAsk -y "*e[31m ?"
  452.    If WARN
  453.      Copy >NIL: PFM_WriteOK S:
  454.      If EXISTS S:PFM_WriteOK
  455.        If NOT EXISTS S:user-startup
  456.          Print >S:user-startup "; BEGIN Personal Fonts Maker"
  457.        Else
  458.          Print >>S:user-startup "*N; BEGIN Personal Fonts Maker"
  459.        EndIf
  460.        Print >>S:user-startup "Assign >NIL: PFM: EXISTS"
  461.        Print >>S:user-startup N "If NOT WARN*N  Failat 21*N  EndIf*NAssign >NIL: PFM: "
  462.        ShowPath >>S:user-startup IPFM:
  463.        Print >>S:user-startup "; END Personal Fonts Maker"
  464.        Delete >NIL: S:PFM_WriteOK
  465.      EndIf
  466.    EndIf
  467.  EndIf
  468.  
  469.  Assign >NIL: IFONTS: EXISTS
  470.  If NOT WARN
  471.    Print ""
  472.    Print PLT_trlfnt
  473.    ShowPath IFONTS:
  474.    Print "*e[31m"
  475.  EndIf
  476.  
  477.  Lab End1
  478.  
  479.  Assign IPFM:
  480.  Assign IFONTS:
  481.  
  482.  Wait 1 SECS
  483.  Print ""
  484.  Print PLT_askend
  485.  CAsk ""
  486.  
  487. Else
  488.  CD RAM:IPT
  489.  Print N "*e[31;1m"
  490.  Print PLT_trlkll
  491.  Wait 3 SECS
  492. EndIf
  493.  
  494. Lab End2
  495. CD RAM:t
  496. Delete > NIL: RAM:IPT ALL QUIET
  497. Delete > NIL: Delete
  498.